unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Image0: TImage;
    Image1: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Label3: TLabel;
    Image2: TImage;
    procedure Image2Click(Sender: TObject);
    procedure Image16Click(Sender: TObject);
    procedure Image15Click(Sender: TObject);
    procedure Image14Click(Sender: TObject);
    procedure Image13Click(Sender: TObject);
    procedure Image12Click(Sender: TObject);
    procedure Image11Click(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
   a:integer;
implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
    Image1.Enabled:=true;
    Image3.Enabled:=False;
    image2.Enabled:=False;
    Image4.Enabled:=False;
    Image5.Enabled:=False;
    Image6.Enabled:=False;
    Image7.Enabled:=False;
    Image8.Enabled:=False;
    Image9.Enabled:=False;
    Image10.Enabled:=False;
    Image11.Enabled:=False;
    Image12.Enabled:=False;
    Image13.Enabled:=False;
    Image14.Enabled:=False;
    Image15.Enabled:=False;
    Image16.Enabled:=False;
a:=0;
Label3.Caption:=IntToStr(a);
memo1.Lines.LoadFromFile('01.txt');
 Label1.Caption:=memo1.Lines[0];
end;

procedure TForm2.Image10Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[20];
image10.Enabled:=False;
image11.enabled:=True;
end;

procedure TForm2.Image11Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[22];
image11.Enabled:=False;
image12.enabled:=True;
end;

procedure TForm2.Image12Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[24];
image12.Enabled:=False;
image13.enabled:=True;
end;

procedure TForm2.Image13Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[26];
image13.Enabled:=False;
image14.enabled:=True;
end;

procedure TForm2.Image14Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[28];
image14.Enabled:=False;
image15.enabled:=True;
end;

procedure TForm2.Image15Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[30];
image15.Enabled:=False;
image16.enabled:=True;
end;

procedure TForm2.Image16Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[32];
image16.Enabled:=False;
end;

procedure TForm2.Image1Click(Sender: TObject);
begin
a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[2];
image1.Enabled:=False;
 image2.Enabled:=True;
end;

procedure TForm2.Image2Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[4];
image2.Enabled:=False;
image3.enabled:=True;
end;

procedure TForm2.Image3Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[6];
image3.Enabled:=False;
image4.enabled:=True;
end;

procedure TForm2.Image4Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[8];
image4.Enabled:=False;
image5.enabled:=True;
end;

procedure TForm2.Image5Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[10];
image5.Enabled:=False;
image6.enabled:=True;
end;

procedure TForm2.Image6Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[12];
image6.Enabled:=False;
image7.enabled:=True;
end;

procedure TForm2.Image7Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[14];
image7.Enabled:=False;
image8.enabled:=True;
end;

procedure TForm2.Image8Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[16];
image8.Enabled:=False;
image9.enabled:=True;
end;

procedure TForm2.Image9Click(Sender: TObject);
begin
 a:=a+1;
label3.Caption:=intToStr(a);
Label1.Caption:=memo1.Lines[18];
image9.Enabled:=False;
image10.enabled:=True;
end;

end.
